
null {1}   1 .XY to PIXEL LOCATION
   5 NT=0;clear ;print "STOP CASSETTE!";print 
  10 input "input X:"X
  20 if X<-80goto 10
  30 if X>79goto 10
  40 A=(X+81)div 8mul 2
  50 input "input Y:"Y
  60 if Y<-44goto 50
  70 if Y>43goto 50
  80 B=ABS(Y-43)
  90 Z=16384+(Bmul 40)+A
  95 if RM=0RM=8;Z=Z-2
 100 print ;print #0,"X=",#0,X,#0,",",#0,"Y=",#0,Y
 105 print "IS THE NUMBER ",#0,RM,#0," PIXEL";print "OF MEMORY LOCATION ",#0,Z,#0,"."
 110 print ;goto 10
:return ;run 
>